home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-12_1989_-_de_Side_B.d64
/
movesprite
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
512b
|
20 lines
5 v=53248:print"[147]"
10 for i=0to62:reada:poke832+i,a:next
30 poke2040,13:pokev+21,1
40 pokev,24
50 fori=39to150
55 pokev+1,i
60 fork=0to10:next k
70 next i
80 fori=24to255:pokev,i
90 fork=0to1:nextk
95 next i
96 pokev+21,0
100 data 0,0,0,0,24,0,0,126,0
110 data 1,255,128,7,255,224,30,102,120
120 data 54,102,108,54,102,108,31,255,248
130 data 7,255,224,1,255,128,1,129,128
140 data 3,0,192,3,0,192,6,0,96
150 data 6,0,96,12,0,48,127,0,255
160 data 0,0,0,0,0,0,0,0,0